home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / qsam300.zip / QSTEST.BAS < prev   
Encoding:
BASIC Source File  |  1989-04-05  |  2.4 KB  |  94 lines
  1.  
  2. '{QSAM TEST 1.03  APR 5, 1989}
  3.  
  4. REM $INCLUDE: 'QSAM300.BI'
  5.  
  6. DEFINT A-Z
  7.  
  8. CLS
  9. kf$ = "testkey.fil"
  10. df$ = "testdat.fil"
  11.  
  12. LOCATE 25, 1
  13. PRINT "n>nx q>Q d>delk D>delkr r>rewk i>ins c>crekr w>rewr 1>katr 2>datr";
  14. VIEW PRINT 1 TO 24
  15.  
  16. 'GOTO there
  17.  
  18. PRINT "creating key file "; kf$; " stat="; Qcreatkf(kf$, 7, "K")
  19. PRINT "creating dat file "; df$; " stat="; Qcreatdf(df$, 32)
  20. PRINT kf$, df$
  21. PRINT " opening key file "; kf$; " stat="; Qopenk(kf$, 1)
  22. PRINT " opening dat file "; df$; " stat="; Qopend(df$, 1)
  23.  
  24. FOR i = 1 TO 500
  25.    ky$ = "key" + LTRIM$(STR$(i))
  26.    dr$ = "dat" + LTRIM$(STR$(i))
  27.    PRINT
  28.    PRINT "ADDING key: "; ky$; " data: "; dr$; " stat="; Qcreatkr(1, 1, ky$, dr$)
  29.    IF stat <> 0 THEN
  30.        BEEP
  31.       STOP
  32.    END IF
  33. NEXT
  34. PRINT
  35. PRINT "closing key file 1 stat="; Qclosek(1)
  36. PRINT "closing dat file 1 stat="; Qclosed(1)
  37. PRINT
  38.  
  39. there:
  40.  
  41. PRINT " opening key file "; kf$; " stat="; Qopenk(kf$, 1)
  42. PRINT " opening dat file "; df$; " stat="; Qopend(df$, 1)
  43. PRINT
  44. ky$ = "key1"
  45. st = Qreadkr(1, 1, ky$, dr$)
  46. PRINT ky$; "="; dr$; " stat="; st
  47. PRINT
  48. DO WHILE 1
  49.    a$ = INPUT$(1)
  50.    SELECT CASE a$
  51.       CASE "A"
  52.          DO WHILE st = 0
  53.             st = Qreadnkr(1, 1, ky$, dr$)
  54.             PRINT ky$; "="; dr$; " stat="; st
  55.          LOOP
  56.       CASE "n"
  57.          st = Qreadnkr(1, 1, ky$, dr$)
  58.          PRINT ky$; "="; dr$; " stat="; st
  59.       CASE "q"
  60.          EXIT DO
  61.       CASE "d"
  62.          PRINT "delete key       stat="; Qdelk(1, ky$)
  63.       CASE "r"
  64.          PRINT "rewind key file  stat="; Qrewindk(1)
  65.       CASE "i"
  66.          INPUT "key"; k$
  67.          PRINT "inserting key    stat="; Qinsertk(1, 1, k$)
  68.       CASE "w"
  69.          INPUT "drec"; d$
  70.          PRINT "overwritting     stat="; Qwritedr(1, d$)
  71.       CASE "1"
  72.          st = Qfileattrk(1, kl, keys&, bf, ft$)
  73.          PRINT "klen="; kl; "keys="; keys&; "bfile="; bf; "type="; ft$; " stat="; st
  74.       CASE "2"
  75.          st = Qfileattrd(1, rl, recs&, bf, ft$)
  76.          PRINT "rlen="; rl; "recs="; recs&; "bfile="; bf; "type="; ft$; " stat="; st
  77.       CASE "k"
  78.          INPUT " key"; ky$
  79.          st = Qreadkr(1, 1, ky$, dr$)
  80.          PRINT ky$; "="; dr$; " stat="; st
  81.       CASE "c"
  82.          INPUT "create key+rec"; k$, d$
  83.          PRINT Qcreatkr(1, 1, k$, d$)
  84.       CASE ELSE
  85.    END SELECT
  86.    PRINT
  87. LOOP
  88.  
  89. PRINT "closing key file 1 stat="; Qclosek(1)
  90. PRINT "closing dat file 1 stat="; Qclosed(1)
  91. LOCATE 24, 1
  92. SYSTEM
  93.  
  94.